VERSION 5.00
Object = "{626333F0-2712-44F7-AE40-FE533189137E}#6.0#0"; "UnicodeFullControl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   6135
   ClientLeft      =   225
   ClientTop       =   855
   ClientWidth     =   10770
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin UnicodeControl.UniToolbar tbStandard 
      Align           =   1  'Align Top
      Height          =   1065
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10770
      _ExtentX        =   18997
      _ExtentY        =   1879
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ImageListName   =   "imgToolbar"
      ShowRebar       =   0   'False
      ItemCount       =   2
      Caption         =   "frmMain.frx":0000
      ItemCaption1    =   "frmMain.frx":0018
      ItemImageIndex1 =   1
      ItemTooltiptext1=   "frmMain.frx":005E
      ItemKey1        =   "tb_edit_lang"
      ItemData1       =   "frmMain.frx":0076
      MenuList1       =   "frmMain.frx":008E
      ItemCaption2    =   "frmMain.frx":00A6
      ItemImageIndex2 =   2
      ItemTooltiptext2=   "frmMain.frx":00DA
      ItemKey2        =   "tb_home"
      ItemData2       =   "frmMain.frx":00F2
      MenuList2       =   "frmMain.frx":010A
      Begin VB.FileListBox File1 
         Height          =   675
         Left            =   7395
         Pattern         =   "*.lng"
         TabIndex        =   1
         Top             =   210
         Width           =   1560
      End
   End
   Begin MultiLanguages.Skin Skin1 
      Left            =   7485
      Top             =   4275
      _ExtentX        =   2275
      _ExtentY        =   1032
   End
   Begin UnicodeControl.ImageListXP imgToolbar 
      Left            =   4815
      Top             =   2040
      _ExtentX        =   847
      _ExtentY        =   847
      ImageWidth      =   32
      ImageHeight     =   32
      Count           =   2
      FileSize1       =   4412
      ImageType1      =   1
      ListImage1      =   "frmMain.frx":0122
      Key1            =   "File_List.png"
      Tag1            =   ""
      FileSize2       =   4412
      ImageType2      =   1
      ListImage2      =   "frmMain.frx":127E
      Key2            =   "Home.png"
      Tag2            =   ""
   End
   Begin UnicodeControl.UniMenu UniMenu1 
      Left            =   8145
      Top             =   1560
      _ExtentX        =   1244
      _ExtentY        =   529
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MenuForeColor   =   0
      IconCount       =   0
      TextRestore     =   "frmMain.frx":23DA
      TextClose       =   "frmMain.frx":240A
      TextMove        =   "frmMain.frx":2436
      TextSize        =   "frmMain.frx":2460
      TextMinimize    =   "frmMain.frx":248A
      TextMaximize    =   "frmMain.frx":24BC
      TextNextWindow  =   "frmMain.frx":24EE
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuFileNew 
         Caption         =   "&New"
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFileOpen 
         Caption         =   "&Open"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuFileClose 
         Caption         =   "&Close"
      End
      Begin VB.Menu mnuFileBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileSave 
         Caption         =   "&Save"
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuFileBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "&Edit"
      Begin VB.Menu mnuEditUndo 
         Caption         =   "&Undo"
         Shortcut        =   ^Z
      End
      Begin VB.Menu mnuEditBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditCut 
         Caption         =   "Cu&t"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuEditCopy 
         Caption         =   "&Copy"
      End
      Begin VB.Menu mnuEditPaste 
         Caption         =   "&Paste"
      End
      Begin VB.Menu mnuEditPasteSpecial 
         Caption         =   "Paste &Special..."
      End
      Begin VB.Menu mnuEditBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuEditDSelectAll 
         Caption         =   "Select &All"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnuEditInvertSelection 
         Caption         =   "&Invert Selection"
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "&View"
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "&Toolbar"
      End
      Begin VB.Menu mnuViewStatusBar 
         Caption         =   "Status &Bar"
      End
      Begin VB.Menu mnuViewBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuViewLargeIcons 
         Caption         =   "Lar&ge Icons"
      End
      Begin VB.Menu mnuViewSmallIcons 
         Caption         =   "S&mall Icons"
      End
      Begin VB.Menu mnuViewList 
         Caption         =   "&List"
      End
      Begin VB.Menu mnuViewDetails 
         Caption         =   "&Details"
      End
      Begin VB.Menu mnuViewBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuViewRefresh 
         Caption         =   "&Refresh"
      End
      Begin VB.Menu mnuViewOptions 
         Caption         =   "&Options..."
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuHelpContents 
         Caption         =   "&Contents"
      End
      Begin VB.Menu mnuHelpSearch 
         Caption         =   "&Search For Help On..."
      End
      Begin VB.Menu mnuHelpBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "&About MyApp..."
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Const NAME_COLUMN = 0
Const TYPE_COLUMN = 1
Const SIZE_COLUMN = 2
Const DATE_COLUMN = 3

Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)

Private Sub MDIForm_Load()
    File1.Path = App.Path & "\languages\"
    
    Dim cbLang As New ItemCollection
    Dim i As Long
    For i = 0 To File1.ListCount - 1
        cbLang.Add File1.List(i)
    Next i

    tbStandard.Buttons.Add , "tb_combo_lang", , , tCombobox, , , , , 80, cbLang.SourceString
    tbStandard.Buttons(3).Caption = GetSetting("UFC", "MULTILANG", "LANG_CHOOSE", "vn.lng")
End Sub

Private Sub mnuHelpContents_Click()
  On Error Resume Next
  
  Dim nRet As Integer
  nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
  If Err Then
    MsgBox Err.Description
  End If
End Sub

Private Sub mnuHelpSearch_Click()
  On Error Resume Next
  
  Dim nRet As Integer
  nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
  If Err Then
    MsgBox Err.Description
  End If
End Sub

Private Sub mnuFileExit_Click()
  'unload the form
  Unload Me
End Sub

Private Sub tbStandard_ItemClick(ButtonReturn As UnicodeControl.Button, ItemLeft As Long, ItemTop As Long, ItemWidth As Long, ItemHeight As Long)
    Select Case ButtonReturn.Key
        Case "tb_edit_lang"
            frmEditLang.Show
        Case "tb_home"
            Form1.Show
    End Select
End Sub
